home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Turnbull China Bikeride
/
Turnbull China Bikeride - Disc 2.iso
/
STUTTGART
/
LANG
/
FORTH
/
FORTHMAC
/
OLD
/
TOOLS1
/
!Forthmacs.lib.clock
< prev
next >
Wrap
Text File
|
1996-05-30
|
177b
|
10 lines
\ simple clock hs 09.02.95
task: clock
: do-clock
multi clock activate multi
begin single at-xy?
#columns d# 13 - 0 at-xy .now
at-xy multi d# 1000 ms
again ;
do-clock